home *** CD-ROM | disk | FTP | other *** search
Text File | 1996-04-10 | 3.1 KB | 137 lines | [TEXT/PJMM] |
- unit HandleTheMenus;
-
- interface
-
- uses
- vListMngr, vListDemo_Globals, About_Dialog, DemoList_Procs, DemoList_Window, InitTheMenus;
-
- procedure Handle_My_Menu (var doneFlag: boolean; theMenu, theItem: integer; var theInput: TEHandle);{Handle menu selection}
-
- implementation
- procedure Handle_My_Menu; {Handle menu selections realtime}
- const
- L_Apple = 1001; {Menu list}
- C_About = 1;
- L_File = 1002; {Menu list}
- C_ShowHead = 1;
- C_ClearHead = 2;
- C_Quit = 4;
- L_Edit = 1003;
- C_Edit = 1;
- C_Refresh = 2;
- C_AddColumn = 4;
- C_DelColumn = 5;
- C_AddRow = 7;
- C_DelRow = 8;
- C_FrameCells = 10;
-
- var
- DNA, tInt: integer;
- BoolHolder: boolean; {For SystemEdit result}
- DAName: Str255; {For getting DA name}
- SavePort: GrafPtr; {Save current port when opening DAs}
- markChar: CHAR;
- tErr: OSERR;
- tMenu: MenuHandle;
- begin {Start of procedure}
-
- case theMenu of {Do selected menu list}
-
- L_Apple:
- begin
- case theItem of{Handle all commands in this menu list}
- C_About:
- begin
- AboutDialog;
- end;
- otherwise{Handle the DAs}
- begin
- GetPort(SavePort);
- GetItem(AppleMenu, theItem, DAName);
- DNA := OpenDeskAcc(DAName);
- SetPort(SavePort);
- end;
- end;
- end;
-
- L_File:
- begin
- case theItem of
- C_ShowHead:
- ShowHeadings;
- C_ClearHead:
- ClearHeadings;
- C_Quit:
- begin
- doneFlag := TRUE;
- end;
- end;
- end;
-
- L_Edit:
- begin
- case theItem of
- C_Edit:
- begin
- GetItemMark(GetMHandle(theMenu), C_Edit, markChar);
- if markChar = CHR(checkMark) then
- begin
- CheckItem(GetMHandle(theMenu), C_Edit, FALSE);
- vLActivateTE(FALSE, DemoList);
- end
- else
- begin
- CheckItem(GetMHandle(theMenu), C_Edit, TRUE);
- vLActivateTE(TRUE, DemoList);
- end;
- end;
- C_Refresh:
- begin
- RefreshList;
- end;
- C_AddColumn:
- begin
- tInt := vLAddColumn(1, vLLastClick(DemoList).h, DemoList);
- end;
- C_DelColumn:
- begin
- vLDelColumn(1, vLLastClick(DemoList).h, DemoList);
- end;
- C_AddRow:
- begin
- tInt := vLAddRow(1, vLLastClick(DemoList).v, DemoList);
- end;
- C_DelRow:
- begin
- vLDelRow(1, vLLastClick(DemoList).v, DemoList);
- end;
- C_FrameCells:
- begin
- GetItemMark(GetMHandle(theMenu), C_FrameCells, markChar);
- if markChar = CHR(checkMark) then
- begin
- CheckItem(GetMHandle(theMenu), C_FrameCells, FALSE);
- vLFrame(0, DemoList); {}
- vLInsetList(0, 0, DemoList); {force redraw of list}
- end
- else
- begin
- CheckItem(GetMHandle(theMenu), C_FrameCells, TRUE);
- vLFrame(1, DemoList); {}
- vLInsetList(0, 0, DemoList); {force redraw of list}
- end;
- end;
- end; {case}
- end;
-
-
- otherwise
- begin
- end;
-
- end; {End for the Lists}
-
- HiliteMenu(0); {Turn menu selection off}
- end; {procedure Handle_My_Menu}
-
- end. {unit HandleTheMenus}